(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     22467,        679]
NotebookOptionsPosition[     17966,        520]
NotebookOutlinePosition[     18583,        544]
CellTagsIndexPosition[     18504,        539]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/ClusterEvolution", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["ClusterEvolution", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"ClusterEvolution", "[", 
   RowBox[{
   "coordinate_List", ",", "spinVal_List", ",", "Gamma_List", ",", 
    "Bfield_List", ",", "timeRange_List", ",", "nPulse_Integer", ",", 
    "pulseType_Integer", ",", "trans_List", ",", "blockQ_Integer"}], "]"}]], 
  "InlineFormula"],
 " \[LineSeparator]MathLink realization of Cluster evolution"
}], "Usage",
 CellChangeTimes->{{3.498553115582257*^9, 3.498553135671567*^9}},
 CellID->982511436],

Cell["Pulsetype = 1 for UDD; 2 for CPMG ", "Notes",
 CellChangeTimes->{{3.498553444559687*^9, 3.498553460911775*^9}},
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[ButtonBox["ClusterCoherence",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/ClusterCoherence"]], "SeeAlso",
 CellChangeTimes->{{3.498553313929111*^9, 3.498553317433911*^9}},
 CellID->929782353],

Cell[TextData[ButtonBox["CoherentClusterEvolution",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/CoherentClusterEvolution"]], "SeeAlso",
 CellChangeTimes->{{3.498553334281257*^9, 3.498553334378153*^9}},
 CellID->530959795]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[BoxData[
 RowBox[{
  RowBox[{"exampleCoord", "=", 
   RowBox[{"(", 
    RowBox[{"$DiamondLatticeConst", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"13", "/", "4"}], ",", 
         RowBox[{"13", "/", "4"}], ",", 
         RowBox[{"13", "/", "4"}]}], "}"}]}], "}"}]}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.498553512466295*^9, 3.498553512971786*^9}},
 CellLabel->"In[27]:=",
 CellID->177861191],

Cell[BoxData[
 RowBox[{
  RowBox[{"exampleLK", "=", 
   RowBox[{"Install", "[", 
    RowBox[{
    "$MRMathLinkPath", "<>", 
     "\"\</MLClusterEvolution/MLClusterEvolution\>\""}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.498645198031436*^9, 3.498645218645033*^9}},
 CellLabel->"In[28]:=",
 CellID->350210717],

Cell[BoxData[
 RowBox[{
  RowBox[{"cRealization", "=", 
   RowBox[{"ClusterEvolution", "[", 
    RowBox[{
     RowBox[{"exampleCoord", "//", "Flatten"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"$GammaH", ",", "$GammaH"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "2.0", ",", "0.003"}], "]"}], ",", "10", ",", "1", 
     ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", "0"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.498553359925415*^9, 3.498553441690893*^9}, {
  3.498553472219228*^9, 3.498553517215616*^9}},
 CellLabel->"In[29]:=",
 CellID->948041689],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"cRealization", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{3.498553493753195*^9},
 CellLabel->"In[30]:=",
 CellID->862388093],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdWnlcjVv3z3DN0hWuMp3KkExRUhn6NiBpopGk0zxITp2G03wmZCxTMlVC
JUmGkgwdlLFLlIQmhFAKISS/3t+7V+993/7Q52s/z7Om71p77bVTcVu33LOn
nJzcga5//vX73z+tBr///6fFgP0HOv8L9wM99+/fCv+zPux/8Mj/eX40fvzX
Ogc+/4VVceTLP/F4dMb8E09EtvHPf2B16KVW/wNrwKhwwj/wVDhu3PDzP3g6
5FbufP8frIlTdp4n/4NnomlSXXlnN56Fv77s53R0Yy00nLpk2NaNtdG3MHdg
XTeejX3OjY+Od2MdfGu5+3xqN56D3S89G0Z2EtZFfvVo/Sc/Ceth10v/CO9v
hPXxuki9SL6F8FwUzFLK49QTngd9E8VXR28Qng+njJXOiocIL0Cb7G3u7FWE
DVDZdnjjsp8fGAbajWe+vsZjWAhYX1m0bcLZZrZuiKgO1QsjLzaxdUOYbU1r
X7/+PVs3ArfnycsTRrxj60Yo+exVcye8ka0b46GZ3M7Km6/ZujESZ2xIV1d9
xdZNsPfdQKUfZ16ydRP8qdE5ZVXmC7a+ENd6SpPipzEsXAi51qdpv9xofREy
723nzLCn9xdhfml0tvhnA1tfjEy7WoOgKW/Y+mL48preVhx9y9ZNkd7i+vnU
MLLPFOt+Bvq2q5J/liB0YNJwRzHzn3AJOrNn7PzUHU8znLtdEZ0cT+tm2Nnf
WsV8Gb2/FJ+GnMwP30bfXwplN3/d0EzmLzlzHHi19vEaeaaP0BxqN13aZowm
/1nAbYhq1PABDAstsCjunkHfWlq3xGYtk4YqH/K/JbTnD/+oZ83kyVlBYB8d
ukeN4msFIbdut3YY6W+NzYOd+vUle2CN0A1RWWppZI81in7nGR0Ssfdl1jB5
86ehZyt9fxla8znyDc6MD1iGzJJHU1N1SZ9lOG9VUHymjNknWwbjjzfaxhqR
/cuR4bEqV2stvb8cJVbLdVf/Jn8th+6lPTHzN5P85bh2zvhLJuknZ4PIffEb
WymfYIMPmyqvpm8h/W2Q51C9t5r4LbPBGv3H8ep9iN+2qL2cY1tdQPJt8XPr
0+zm96S/LVLycxsHP2NYZou9rVnH4zcR/+1QWP3gDq4xfWEH3T9GlS1SJ3/b
Yde8lB+1NkwfmR0GNWubzPlE+tvD1GLj1V21pL897p34lP91KulvD4eOYtU2
4qPMHvYzXH/Wc0h/B+gfj3/AF5N8B/jzEiKOCcl/DshdIckwH8uelzngx+v8
1LQJxE9HZCWN5SbPIfmOED78oidpJPmOaNRa/vs51RuZIxytvEc2tdP7K1A1
9eWCkoXs+1iBTdl3kxuGMf8IV8DjxZHPkx4zvspWQEPgfmFWT5aPcishLtWd
HPOR1QOsxEqnu7OMyhgWrkTVqw5j7GT1Q7YS3CuPhVs66H0n2GbrDnYoZPyC
E+x1sy4uCiX5Thi/fKb10xbmD5kTzo6YW7y+D+m/Cn9NGsAfXcAwVqHeQvrx
9TCyfxXKrN4NcplB9q9Cls9MnafyFD9nfL0++PKHLHrfGRrbVfpnfWT+EDrD
OlI/eVQlyXfGy74xwzq5xJ/VCBvvnF1+kfRfjYZ9NwMWalK+rwYSJx7YrcTs
la2Gh9fRTSp3mT/kXFDRaX7vIJ+twwUTd+RMPdeH6okLxixt0fg1m8mTuaBn
3XztY9HEHy7uB4xQMDVm9nC4mG9Xkzejux5wMb2xOVHPg2EuF4L+h6erRJB9
XIivLzKwP8zyI5WLyfxql4Zo0pcL/aTOOpd7rB7Xc2F05szj73qsXsu5ImNi
zKSHagxzXOGSNGmdcwJ7Hq5I62mat2M8+x7XFcOWlioNNaD8dMWlvkP+6Dee
6ZPqCrOKRSX9u+PlitH+A8tbOxiud8W5rBrPOVTP5dzg31exD78fix/HDYFX
FfWf034AN6zsYcQPA5PHdcPr2bda9gwm/7phen6MkudNFq9UN8T00sgy5FO9
c8PQKykulyvZ+/VuiE5q/Lp1O9VPd/QuU7SYOJ3ku6NwmWvHyNXkf3cs8joo
t7+V/O8OU/e8+4lviJ/uUJkwOE3oz3CqO/rdKI4wuEL1wh2/dl9ZqDSa4Xp3
XBtw9ZHZOYq/B6x0rpU17GeY44Gpynsrp96hfPbAquhdenEa7H2uBzQfTU15
fojqmwd6J225OHIAyfeAQcKXewtcyP8eWD532gJpEvnfAxMcdmk1FJD/PXFA
p9mhs4T454kj/s+k16+T/Z4Qb8tSKjhD9ntipG7dwhE7yH5P6CwbV3rBmeR7
YsrGvpv6jCL5nlhuntE0qYzs90T2OOdTLRsp/70gvbzG4YYF+d8LvEfvjXuT
vfDCreKDikbjyH4vcI6LpmRNJvu9oK1Yor8CDKd6YcMHF8dXDuR/LxStHdM7
24PkewFnep4tdSL53tgaNX3YgVkk3xvqoXZ/+NeQ/70heLrWdYUVw1xvxPeu
+ySMovrujTuai44tcGH5neoNr+ipRSa/iX/eWDR+d3RjGONnvTcuBKhdXvCD
6ocPBM0mZw1vsXrL8UGTgo33HHWqxz4wGxaQ7LWcYa4PvPvvUHvmTP2cDzSU
80aGzCL++0DnyeA939fTfumDtEEZJ2a9YfrW++CAXQenTyXZ74vesxSX939J
8fdF6pzFVb/+pvj7gv/aekSv/eR/X6T9Fa51IIHs90Vuzm4tt5lUf3xh73Un
kDOU9htfDBg2f33deaZvvS88HM0uTg4m+/1w8c21RaesWX3h+GHV52djVw6h
euyHresanhxdwPzL9YPb9fk1d5yo/vnh7bsMiym0H6b6wdTspblXJfHPDwMd
rj9J+Ur890PSGL1v7duJ/2swa7VM8eFniv8a3HqguHKvgPi3BpW24Sc/2ZD9
a8BXzXqalED8W4OGzcvHjBtC/F+Dg0V7jwzdS/LXIEtBtZca1Y/6NaiIDFOK
/U7y/ZHd8UwclU/+90dh+6QPDUvJ//6wDxT1Nmgh+f7w37u64MU9kt/1vMlf
k3Z1kP3+QIZb3jZ3ku+P5fwnL87dI/n+2H6g7NrcXyR/LYYHVstZXCH5a8HZ
4TfoWT+SvxaGTfmnw/8g+WuhMKtB8XZv8v9abIlxf/unB+ND6lqoFxgqFfrQ
frsW6e7VtxPGsefr10I57/JfZebEvwDsVuFOehRM8gOQY98w3530QwDk/XRX
xFI95gZAek4+IM2G5AfgjPzBOZs7GF9SAzD7dmKd2nOWL7IAXD24fkNpxXMm
PwDT8n9P8YutYfLXoUnluLbOpadM/jr4iyXNDkOrmfx1GGrRMXfWgXomfx1m
FDV82Sdg+6NwHUpr9wrqL1L+rYPvqbNpdmFk/zp8tTyyw5X4Wb8OwqqbtYbd
50se7NTkGhYdZViBh0570e2j24mPPIw9F72eu5bZq8nDeolQ70Q17Y88qI/a
M7xmAlu35kF6+uDA6vEULx6Ofn8UN8qWfZ/Hg+D687Y0Ou8KeRhzy03hIZ/h
BB5sf7cp3vKk/ZyHp8oKf578zPyby4Pv4d+ZewvJvzw46/kv7JXN/FvGQ09X
f072Lubfeh7iip1m6p999m/cykNrYJ/QRItaZn8gFs4LXeHjzc6TCoGQWBuN
4pSy+sAJRMZsod6KOSz/NQPx4oLGfpUtlJ+BaGiP29NO+W0dCPMerwTV04kv
gUi81OPrHKrXvMCuehVzuf0o9XeBKJzoJhOeZvFMCES6z4YO/hFmT2ogjs9S
KXw1i8U/t+t7aRwvy6MMywIxqEXX0uwq078sENWvvt9c8pn5p75L3w1NdltD
mP9aA7G/uaDqDZ1H5YJwYMxG7fCLzB6FIJxpE89Xvk/5EITZplmm694yrBkE
ju/g3TfcKD+CEHdgd+H0DPa+dRDUlOXWrVak+AdBeT7XrrOaxZMXhK5uJOfK
QKofQUifNlndR8xwQhAU8r5a/viT6lkQ8u9szhNSvcwNQun876v/pPOSLAg9
r+UoX6B8LQtC8UnDbeHd/V4QOjTairSo/rV2yTsyNG7MO+I/H8nKHO4lmq8o
8NE35+Tbhz/Ifj5eeN7c7UH9sCYfci+maJq3kf18CKb/HvjmCcWfj9M12/Qd
L1L8+bBSevfC9zjxn4/MLV9kvU4T//lQHW/50u4B8Z+P+ES+YBnxKZWPNCeX
J4dIn1w+cv2PHFpD78v44J1Jn+r3hfmvjA+zrUE33pyneseHfvDCY5kDWLxb
+Qic1mkv5tD5OxhGAg2TYmPGR4Vg3K7oEDwvJv4Ho+hw4vPg14xPmsF4F17d
J6uU+oNgtG8ZkN9J+6l1MGSzK5r3F1C/HoyB6rOnKzky/vGCsWVUL8O8QXQ+
C0blhqXyvvuYfgnBOH/qQsPHSsr/YDQXP7pVep7ZlxsMm0+5U8eZkP3BkDMe
fnVqAsU/GD8Wn14lJP/UB4PjveRcFe1vrcGwjHdMcTlG8Q9B7QS3e6sjKf4h
UPqurRmkQ/EPwePJjwzanzD5miH4fbEqIDmI8j8Em6yPCBcOJ/6HIDDLSUX4
hPq1EDyUv1p+9wHxPwQbLlznpPQm/ofg8B2rVlVf4n8I+lR92db/Le2nIWgI
S4zs5U3xD4F0SK3R7ptkfwgiJqq+1aD9vCwERxQLD51tJ/tDcOaY0zZt4ldr
COQ3/VryIpHsD8WPpR3a56lfVwjFud6LK1fPI/tDkZ4+V7dZi/gfCtXqcpMd
dF5EKJradpwsdiX+h8L2YKXrWAnxPxSJO+THr00m/ofi9XZ+uVUO8T8UHdFZ
rbWniP+hMBEX7d2SQvwPRenZw0c9Q8n+UNzy8+fIaZD9ofgceP7CkFzifyhM
OzXu96V+ob5L/6J7d9S1mP9bQ5EanrMnwp7qXxiule+MSt3P+KgQhhslYoHT
TIY5YWjr+bbPamOq/2HoGPx18Z06mheF4e8b35Pm0DzMOgybDcvPZOpQ/QtD
v339z5s7kv1h8Eg13VH3mewPw8P6UUGG1P8khOG1INOs4SDFPwzJT4faTslj
388Ng9f9601GftRfh0F9e2TH/cUsf8vCoPmxfLCshvrdMIy7/Gd8eiLDrV3r
XF3x2d00PxEgxHaYmJvK8lNBgASbG0qRM5g8jgAlbkWZrlLivwARASo/h3fP
qwTooT/su282xb9rvffeZxcuEP8F0LBqGTd8AdOXJ4CRo6/R3Uc03xFA7Pbg
npUz2+8SBOgcLPndGsb261QBlIdXWHxweMzsF+BEymF3uzEMywTouLN3vvg0
65/KBGgx3qZ+bT/bH+sFqJ5w6djmNLa/tgpwicvb4XuC5qfh+BJwRfpBntmr
EI64QZO/9KV85ISjR5GaMDqd+B+OAtuh1unUvyAc6ZH8s5a3yP5wCAVKR5qD
iP/h6Dm3LFhpMcU/HI19hyjoU74Iw5HsqnpnJ/kvIRx5Nju8d9F8MDUcvwxk
j5tov8kNh4/lUffHccT/cGjF6KeMp/lTWTik519GvYml+h+OlQEVNzcso/of
jht/tJw14NH8KQKrT4W+vDua+B+BuBROwPtA4n8EVJ+l15esZO9rRuCmfmvO
mCQ6n0bgXfWbkE0Pqf5FwPFJIZ6eJfsj0Fwatr2E9k9eBDJt9mh4Ub8pjMCG
JSPONF2m+heBja06vi1bqf5HIGHj6O1P3Yj/EXiusWn83c00z4pAkb1n8kOa
b5VFICLq5IVJZF99BBYsmZCSr0L2R+DcDKMRr0bS/CMSlz5rOXJHUf8TifYj
mjKLbxT/SCRoWmkeoPm+ZiSSYze8mU7zUESi46TJhiSqv9aR0Ptao3CC9m9u
JIb+3C+dQf0HLxK7HixYNLE7/yNRtTR4cwX1KwmR0C7Td0ihfia16/u55nuN
nlP8IzFDMeGg8j6KfyTqDpRfiR9P9T8SxtE3G/12U/2LhJOpfHxGX4ZbI7Gt
cIH2wTSyPwoVo9xumEsYVohCo1KHWkk+zYOiYD8sz1JFi/I/Csc91Vpjq2j/
i0LHq2E1XwRkfxQC2y7HuL0i+6NQoCi57U/5wovC+JSMi/xcsj8KK10/Z/Qc
QfZ3rc/LmTnJnupfFLTqLXn2mUyf3Ci8/2DenGdI8+wobMiqOvvbhOGyKMzT
Sa3hk/71/9K/7aNlGNkfBdmrVt1lZrT/RaND5Z7qNoqnQjT8o897Jryn/S8a
J6bPeJikSfGPhmp7R6heN/+j8aJl9oATOoxv1tEw43yQXTFj9YUbDXvlip37
tFi940Vj607DmBAXus+Khk5Jne/kOaxeJURj1qnckRnD2fkkNRo2r26Xze3L
cG40lAeoWNqNof4/GlmbLHrfUKf+Pxob1J5f+fSI5q3R6K2nterkdVbvW7ue
F5gNn7aD+r8Y6GoVWip9oPoXg6i3aZrK6cT/GITu+2gzqbv+xcCgxXGkTnf9
i4HRiC2pRncp/jHg6QzZdJr8y43BnM5szTjan3kxMH8Qavh2CvU/Mbh4sNf4
fDofJMRg2BIrJ4cyyv8YPA22GZjXk/q/GAROmfJhqxvN12Lw0fSh8ZXHVP9i
8GmgYXjzEup/YhDzR/KWfqR/awyS9MbdSqd8kosF7/L+ud33rwqxGPE9uTKZ
MCcW1imDZCebyP5YdBbxFLY8I/tjUZ+zZsUn6q+sY8F5dq1mVQXZH9tV3x5+
GUvyeLEY2+E8bPJH4n8s/npi8UuJ+vuEWHxtLy8ZROupsVic4T0jiOZhubH4
Nsa5Zjndb8lisaJSrWwD3ReVxWJXgJsgl+4z6mPhJpAFyM8j/scicZNB07oS
yn8hJl7hx190Z7ifEHlqeChSo3ogxP5jY072GczwSCG89T5tlKd1jhA/1jfb
7XRjWF0IH4GXpv11mhcIsU7y9PFcPSZfVwht7eeOivlUP4TYmn6nNXUK099U
iMfayzjx28ifQozNKZ8+qJxhRyGs2hq86ml+wRXC97hKzjOqnz5COCbW6m6l
+ThPiFX9n880ucqwQIhP3+Oux+0h/wux9MXfeko8huOE0FTgW9xfSfEQYl5A
oXmGE8NJQsgN+HOsCc0rUoUwdxizeN5BhjOFeDh090FvyodcIaIuGbSB4lkg
hG7B5jMGpK+sy/5JtY+fEJ9uCaGTnVx/hvrnsq7n4+u/un5g/qoSdp2/e+jP
o3l0vRD+Z4syzqgyfzcKYWdsaK04mPY7IS45Ve+8/43le7sQOd9WOVz8Rfff
Iiw4tNn8mw7D/UToPDrmvXUenQdFiJodyP9bxPBIEbLsRNYVBxjmiFAX22qn
8INhdRHefQ58fXkr+56mCGmjrL7dp/sTXRES32tO0+pF/bMIgkG2tdLrDJuK
4Pb3qLjSEOqnRXBKGaY9XJHZ5yjCrE3CIUP2UX8pwpU+LikK/Zk/fERQ7Tjt
VelF9UYE26S/1hjT+VEgQrRcgs2c31R/RBhoe/tvXyOKvwhDazquadP9UIII
3sP2lTtcovh3yZfvePST5iGpIox9JdINo/4mU4RxZVJD72aKf9f33o9eLTpC
8RfhpFa20x/DKf4iRLxJ3D5kAdPnlgifLT5beKvTftYVH5VHX+Q/MP9UibBQ
vW5evwK6TxLhzu25ZzYWMH83irA1eUHDcBWa94hQW7wwLW4Ew+0i/DqvHFZ7
jOIvRlDRxBXel9n3+omh3AhtuWm0H4jhYa/zMzaH8l+MWt7fFeo0b+CI0cRv
UkmTMXvUxZhkbHwv4APVSzFW9/hUekDKsK4Y3rmOe26epvwX42v/BqnfVfZ9
UzGOfBA4XKL7eWsx8jWu9zh9nenjKEbwZq2tpsQHrhiVs42zx9Qy7CPG0iqZ
QUoNxV+Mef2O5BnReVMghmXJ9GIPqudCMdxCNR2f0/18nBjm2n2b3lTRfiSG
tdEao7rTzP9JYpRM7jQcY0nzXjG0+Me4N/TZ/popxqUWVU5+B9vvc8UoRWKj
2juGC8TQ2TbOJGYI3Y+K0f50/TtDdfa9W13+6GWQ1PMU9bNiZB5fEyrXg/Jf
jI3nB0m2UP2v73r/eOeMQdRvNoqRrfCko2Mu7XdiGD3kGkZT/NrFECc/K5lb
Tf2/BEFff8dpe1H8JTgS7+Bf/DedByXgDT79+5cZWx8pgYftCWNl+nsJjgTL
yr2/VFE/pC5BY9GSDx40P9CUYPSM1/I21P/qSvDkx+epfWi+AglqX1i63X/H
4msqgfOV+IYaeybfWoLNLdsr3MYy/zlKMGfy2h5ySuy8yJVAXNzweIQOm5f7
SJD5oQNWwics/hKYLpmwvu9Wdj4USNDDY8+DUT3rWPwlmPu+KXZ0M+uf4iSI
r5j99Wc5Oy8nSGBbVaL0NJrZnyRB4pOd0wKdqT+RYKfP7I0KtP9mSmBt9lek
Kc0TcyUoVCpPU6N6USBBrvvKjEkRlP8SrLI4VtNA9ehW1/O/1y7MK6R+RgLZ
hgnuV69S/CVoFy9pq+5D8ZfAf07TNzMvir8Elf1Ke1UWUvwl0PfOVupD+dgu
Qc7PQt6h7r8/k+LTGZVNddTv9JPC59CnwTdpfqQgRfB9x4woOo+MlCJ+dXHd
F8IcKVbdl00KfUr5L4W3QU/s86P4S3HIwbtofDzt/1LkhqSXlxpT/ywFb3GO
d8Jxqv9S7BCLI/b2Zv62luJr+FijB9lsf3GUYmtsq8znC80XpZh41mPBDbrv
85Fi0CKl8c/70rxRiuLTv+Yep79PEEhx7X7lmuf09zJCKdQHPJvFnc/0i5NC
P2f2YU4g1X8phj447hJE/USSFAXbf5lnHab6L4VCkJb2MbrPzJTiRspFjdY6
Oq9I4V+sLMkazXBBl79bJStDy+l+Rgpbm7Xvf9H6LSmMQlT6Z9P9b5kU0veN
J7Xp/rqq6/k//KLGHGox+D8rvwOG
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  ImageSize->{448., Automatic},
  PlotRange->{0, 1},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.498553494318049*^9, 3.498553521164747*^9}, 
   3.498645238101582*^9},
 CellLabel->"Out[30]=",
 CellID->1146413248]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Uninstall", "[", "exampleLK", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.498645223876261*^9, 3.498645230408338*^9}},
 CellLabel->"In[31]:=",
 CellID->1915684875]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{1584, 816},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[16446, 462, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 18365, 532}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 72, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1318, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1376, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1458, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1526, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1623, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1708, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1792, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1911, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1967, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2033, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2105, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2172, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2244, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2308, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2372, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2438, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2519, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2623, 132, 59, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2685, 135, 501, 12, 117, "Usage",
 CellID->982511436],
Cell[3189, 149, 138, 2, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3364, 156, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3424, 159, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3506, 165, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3592, 168, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3687, 174, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3755, 177, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3841, 183, 55, 1, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[3899, 186, 213, 4, 17, "SeeAlso",
 CellID->929782353],
Cell[4115, 192, 229, 4, 17, "SeeAlso",
 CellID->530959795]
}, Open  ]],
Cell[CellGroupData[{
Cell[4381, 201, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[4441, 204, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4524, 210, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[4883, 223, 539, 17, 51, "Input",
 CellID->177861191],
Cell[5425, 242, 319, 10, 73, "Input",
 CellID->350210717],
Cell[5747, 254, 745, 20, 73, "Input",
 CellID->948041689],
Cell[CellGroupData[{
Cell[6517, 278, 318, 9, 28, "Input",
 CellID->862388093],
Cell[6838, 289, 9357, 160, 305, "Output",
 CellID->1146413248]
}, Open  ]],
Cell[16210, 452, 199, 5, 28, "Input",
 CellID->1915684875]
}, Open  ]],
Cell[CellGroupData[{
Cell[16446, 462, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[16549, 466, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[16677, 471, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[16850, 478, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[16980, 483, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[17113, 488, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[17258, 494, 131, 3, 22, "ExampleSection",
 CellID->258228157],
Cell[17392, 499, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[17537, 504, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[17675, 509, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[17818, 514, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
